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1b-Se -1984 01:37:58 AX-11 Bliss-32 V4.0-7 

12-8 08=198e ON aria EBASRTL SRE BPAGETBLK. 
; 1 0001 : 
: ¢ pn08 :<bl f/width:80> 
: 4 0004 0 MODULE BPASGETFREBLK ( ! Dynamic allocation of storage 
; 5 0005 0 IDENT = '1-311° < ' File: BPAGETBLK.B32° 
3 6 0006 = 
3 7 0007 1 BEGIN 
3 8 0008 1! 
3 19 484 } Ve AARAAAAEAEREAARE REAR AAARAEER AEE RERARRRREREREEEE 
$ '® 
> Te 0011 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
3 \¢ Bog 1 !® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 i Bota : * ALL RIGHTS RESERVED. * 
$ '® * 
. 0015 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
;. 8018 1 !® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
s WW 0017 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 2 0018 1 !* (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
.- 0019 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: $9 poss : * TRANSFERRED. ® 
Py :* * 
; & OOS 1 !@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 00 1 ' AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $e B05 ! 7° CORPORATION. * 
: '@ 
; & 0026 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
- av 0027 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 2 0028 1 !«* * 
; @& 0029 1 ! * 
$ 3 6039 : pOeSARASARRERATERANEOAAIEETAN AS ERENSNO NUTR SOR ATAN TREN ANON T ONAN RONEN 
: 0032 1 !<blf/uppercase_key> 
:. = 0033 1 !<blf/lowercase_user> 
; & 0034 1! 
> a 0035 1 
; » 0036 1 !++ 
: i 0037 1 ! FACILITY: BASIC-PLUS AME 
7 0038 1! 
3 39 0039 1 ! ABSTRACT: 
; & 0040 1! : 
3 41 0041 1! This module contains the code to allocate and dealiocate 
$ ri} B20§ : blocks of heap storage. 
: $8 73 ; : ENVIRONMENT: Native mode VAX processor, User mode, Common RTL. 
: 46 0046 1 ! AUTHOR: Jeremy Barker, CREATION DATE: 16-Jan-79 
OF 0047 1! 
; «48 0048 1 ! MODIFIED BY: 
: 49 0049 1! 
; 50 0050 1! VERSION x01 
3s «6ST 0051 1! 
: 25 B236 ;; Viveka Eriksson, 17-Aug-79 | 
3 27 9037 : : 309 = Modifications to comply with VAX RTL standards. 
s $5 S088 1! Jeremy Barker, 17-Aug-79 ; 
; 2 B026 1! 310 = Require REQ:ame so that generated code is in pre er PSECT 
; OF 0057 1! and is sharable (also makes image 1 page smaller 


892:1 


Page 


1 
(1) 


ee 


— if: Se0-1964 PigeieF  PONsRT SRE TePAGy tack o$2-1 Page 4§ 

1! 12311 - 7 lace reference to require file with DISPATCH_PSECTS macro. 
1i 5 59=SEP=1979 

60 060 1: 

61 061 1 i-- 

6 062 1 

6 063 1! 

64 0064 1 !<blf/page> 


N 13 
BPASGE TF REBLK 16-Sep-1984 01:37:58 AX-11 Bliss-32 V4.0-74 Page 
1-311 12-8001 382 94:80:34 BASRTL’ SRE IBPAGE TALK. 692: 1 . 
: 68 0065 1! 
ae 8008 1 ! SWITCHES: 
; oO 49 Y 
;: & 068 1 
; oy B70 ! SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
Gee 071 1! 
por¢ 1 ! TABLE OF CONTENTS: 
; «& 00735 1! 
; 0074 1 
: 7 0075 1 FORWARD ROUTINE 
re 0076 1 bpasget_block, ' allocate a block 
; # 0077 1 bpa$free_block; ! deallocate a block 
; 79 0078 1 
; & 0079 1! 
; 0080 1 ! INCLUDE FILES: 
; & 0081 1! 
. 0082 1 
: Be goes } REQUIRE ‘RTLIN:RTLPSECT'; ! Define DECLARE_PSECTS macro 
; 0179 1! 
; oF 0180 1 ! MACROS: 
; 0181 1! 
5 Biss 1! NONE 
; 0183 1! 
; «(69 0184 1 ! EQUATED SYMBOLS: 
i & 0185 1! 
, 0186 1! NONE 
>; «494 0187 1! 
: 95 0188 1 ! PSECTS: 
> 696 0189 1! 8 
3 44 Bit : declare_psects (bpa); ! Declare psects for BPAS$ facility 
; 299 B18 1 ! OWN STORAGE: 
; 100 0193 1! 
; 101 0194 1! NONE 
s 102 0195 1! 
: 103 0196 1 ! EXTERNAL REFERENCES: 
: 104 0197 1! 
: 105 0198 1 
> 106 0199 1 EXTERNAL ROUTINE 
s 107 0200 1 Lib$get_vm : ADDRESSING_MODE (GENERAL), 
: 108 0201 1 ' allocate a heap storage block 
3 1% Sa04 ; Lib$Sfree_vm : ADDRESSING_MODE (GENERAL); 
: 111 0204 1 ! deallocate heap storage block 
; a 0205 1! 
e. $8 0206 1 


—— 


———_—__—— 


failure - ?? 
SIDE EFFECTS: 


A block of heap storage is allocated. ‘ 
The size of the virtual image PO region may be increased. 
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BPASGE TF REBLK 18-Sep-19 4 01:37:58 AX-11 Bliss-32 V4.0-74 Page 4 
1-511 13-808 -13be OFi8gi88 LBASRTL-SRCIEPAGE TALK. 2;1 , . (3) 
; 8 GLOBAL ROUTINE bpa$get_block (block _size, UE 309 ! allocate a block 
S ' 
1 144 
: FUNCTIONAL DESCRIPTION: 
1 i A block of heap storage, ‘block_size’ bytes long, is allocated. 
! } It is zeroed and its address is returned. 
FORMAL PARAMETERS: 
1 i block_size = The length of the block to allocate, in bytes. 
1 : block - Pointer to a longword to receive the starting 
$$ } address of the block allocated. 
‘ i IMPLICIT INPUTS: 
2 NONE 
i IMPLICIT OUTPUTS: 
NONE 
: ROUTINE VALUE: 
success - 1 
i 
i 
i 
i 
i 
i 
ie 


BEGIN 
MAP ! A 309 
BLOCK : REF VECTOR (1, LONG]; ! address of biock allocated ! A 309 
LOCAL 
sts; ' status value of Lib$get_vm 
IF i = Lib$Sget_vm (block_size, BLOCK ([0])) ! m 309 


CHSFILL (0, .block_size, CHSPTR (.BLOCK (0])); 
! Zero the si lecated block ! M 309 
iEnd of bpa$get_block 


WR 0 OBNAUE WA $0 OONOAU EWN OO ODNOAUE WN O OONAUS WR OVDONOu 


Be Se Be Oe Be Oe Fe Ge Se Se Se Se Se Se Ge Se Fe Ge Ge Se Ge Se Ge Se Se Se Se Se Se Ge he Ge Ss Se Se Se Se Se Se Se Se eees Fete Se Seesese 


AUF WN 0 OONA UVES WN OO ODNAUES WN — O OONAUES WN SO CONOUSWWN—OVOOn 


RON RORONUWARPOPONONONONUNY 2 2 


RETURN .sts; 
END; 


-TITLE BPASGETFREBLK 
IDENT = \1-311\ 


-EXTRN LIBSGET_VM, LIBSFREE_VM 


a rn en rN Ee Se Ne ee ae eS SHO 


——— 


BPASGETFREBLK 


| 
046 AC 
; Routine Size: 


36 bytes, 


Routine Base: 


i. Sep-1 


14-Sep-1 
007C 000 
gg cE 888 
04 AC 9F 0000 
g Fe 0008 
DO QO00F 
56 €9 Op8i8 
08 BC DO 0001 
00 2C 00019 
60 0001F 
56 DO 00020 1S: 
04 00023 


-BPASCODE + 0000 


Be 91:56:39 


«PSECT 


AX-11 Bliss-32 V4.0 rae 
BASRTL.SRC BPAGETALK. B52;1 


-BPASCODE,NOWRT, SHR, PIC,2 
Hite BLOCK, Save R2,R3,R4,R5,R6 


BLOCK SIZE 
me LTBSGET. VM 


StS, 1 

LOCK, RO 
i (SP), #0, BLOCK_SIZE, (RO) 
STS, RO 


- — 


| BPASGE TFREBLK 
1-311 


— ot a a tt ts 
oo COO 008 SI NIN NINN NSO 


Be Se Se Se Ge Ge Se Oe Ge Ge Ge Ge Ge Se Ge Ge Os Oe Oe Oe Oe Oe oe Oe Se Ss Bs oe Os Os SH Ss Oe es Sees 


PRIPINDINIIY 3 tt st st at a tt 


RAVLSSSLESRALLESES 


3; Routine Size: 


D 14 
16-Sep-1984 91:37:38 rete Bliss-32 V4.0-74 
14-Sep-1984 11:56:5 BASRTL.SRCJBPAGETBLK.832;1 
$9 ! GLOBAL ROUTINE bpa$free_block (address, block_size) = ! deallocate a block 
6¢ 1 !+4 

8 ee : FUNCTIONAL DESCRIPTION: 

0265 1! A block ‘block_size' bytes Long. starting at 

0 ¢] 1! address ‘address’ is returned fo the heap storage. 

8 of : } The block must have been allocated using bpa$get_block. 

8 4 : FORMAL PARAMETERS: 

bs7) 1! address = pointer to block to deallocate 

8 ie ! } block_size = length of block to deallocate, in bytes 

0974 1 ! IMPLICIT INPUTS: 

0275 1! 

0276 1! NONE 

0277 1! 

0278 1 ! IMPLICIT OUTPUTS: 

0279 1! 

0280 1! NONE 

0281 1! 

OSes 1 ! ROUTINE VALUE: 

0283 1! 

0284 1! success - 1, 

0285 1! failure - ?? 

0286 1! 

peer 1! SIDE EFFECTS: 

0288 1! : 

0289 1! A block of heap storage is deallocated. 

0290 1! 

0291 1 !-- 

Os3¢ 1 

0293 2 BEGIN ; 

0294 2 RETURN Lib$free_vm (block_size, address); ' m 309 

0295 1 END; !End of bpa$free_block 


0000 00000 -ENTRY BPASFREE_BLOCK, Save nothing 
04 AC 9F 00002 PUSHAB ADDRESS 
08 AC 9F 00005 PUSHAB ag SIZE 
000000006 00 02 FB 00008 CALLS #2, LIBSFREE_VM 
04 0000F RET 


16 bytes, Routine Base: _BPASCODE + 0024 


1 


1 
8 1 !<blf/page> 


NO 


029 
029 
029 


Page 


6 
(4) 


0260 
0294. 


0295 
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BPASGE TF REBLK 1§- Sep-1984 7:58 AX-11 Bliss-32 V4. Page 7 
1-311 1e28ep-1986 $1: mit 73) HBASRTL’SRedePace TALK .os2:1 P88 ogi 
; 209 0299 1 END ‘End of module 
: 519 $339 
; 211 0301 0 ELUDOM 
3 PSECT SUMMARY 
: Name Bytes Attributes 
: _BPASCODE 52 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; COMMAND QUALIFIERS 
F Py PERT SET APT OL LEONEL LOM. SEO COPREE SAPD ERIS OPES FOLE MSRC$:BPAGE TBLK/UPDATE=(ENH$: BPAGETBLK 
Size:  §2 code + 0 data bytes 
Run Time: 


Elapsed Time: 00:07.6 
Lines/CPU Min: 7685 
Lexemes/CPU-Min: 18076 
eee | Used: 24 pages 
Compilation Complete 


Secon — eee... 
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